home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Demos / hello.stk < prev    next >
Encoding:
Text File  |  1996-02-22  |  472 b   |  15 lines
  1. #!/bin/sh
  2. :;exec /usr/local/bin/stk -f "$0" "$@"
  3. ;; Simple Tk script to create a button that prints "Hello, world".
  4. ;; Click on the button to terminate the program.
  5. ;; 
  6. ;; The first line below creates the button, and the second line
  7. ;; arranges for packer to manage the button's geometry, centering
  8. ;; it in the application's main window.
  9.  
  10. (button '.hello :text "Hello, world" 
  11.         :command (lambda ()
  12.                (display "Hello, world\n")
  13.                (destroy *root*)))
  14. (pack .hello)
  15.